OUTERMOSTLOOP PND
              PSX 10
NEXTLOOP         PSY 10
INNERMOSTLOOP       PSZ 10
COUNT                  PPR (X),(Y),(Z)
                       PSZ -1
                       PGO COUNT
                    PSY -1
                    PGO INNERMOSTLOOP
                 PSX -1
                 PGO NEXTLOOP
              PGO OUTERMOSTLOOP
